﻿Public Class Abstract_Attribute

    Public field As String, value As String, insertSQL As Boolean, type As String

    Public Sub New(ByVal f As String, ByVal v As String, ByVal t As String)

        Me.field = f
        Me.value = v
        Me.type = t
        Me.insertSQL = False

    End Sub

    Public Sub setValue(ByVal v As String, Optional ByVal SQL As Boolean = True)

        Me.value = v
        Me.insertSQL = SQL

    End Sub

    Public Function getData(ByVal info As String) As String

        Select Case info

            Case "field"
                Return Me.field

            Case "value"
                Return Me.value

            Case "type"
                Return Me.type

        End Select

        Return "0"

    End Function

End Class
